home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 23.zip / BS1 part 23 / Prof page II util.adf / HD / Install-Proc < prev    next >
AmigaDOS Script File  |  1990-12-17  |  7KB  |  214 lines
  1. .KEY dest
  2. .BRA {
  3. .KET }
  4.  
  5. ;
  6. ; Do the PPage installation:
  7. ;
  8. ; Inputs:
  9. ;    dest  Where stuff should go.
  10.  
  11.  
  12. IF NOT EXISTS "PPageInstDest:PPage"
  13.    ECHO "     Creating Directory {dest}PPage ..."
  14.    MAKEDIR "PPageInstDest:PPage"
  15.    COPY PPageInstUtil:HD.info "PPageInstDest:PPage.info"
  16. ENDIF
  17.  
  18. ;
  19. ; Install the program itself.
  20. ;
  21. INSTUTIL ask -dy "Install the Professional Page program [Y/N]? Y"
  22. IF NOT WARN
  23.         EXECUTE RAM:PPageInstall/DiskMount "Program Disk" PPage: PPageInstPgm:
  24.  
  25.         ECHO "*N     Copying Professional Page program ...*N"
  26.         COPY PPageInstPgm:PPage "PPageInstDest:PPage/PPage"
  27.         COPY PPageInstPgm:PPage.info "PPageInstDest:PPage/PPage.info"
  28.         INSTUTIL reseticon "PPageInstDest:PPage/PPage"
  29.  
  30.         COPY PPageInstPgm:PANTONE_data.bin "PPageInstDest:PPage"
  31.  
  32.         ;
  33.         ; these libraries are necessary for PPage, make sure that they are there:
  34.         ;
  35.         IF NOT EXISTS LIBS:mathtrans.library
  36.            ECHO "*N     Copying mathtrans.library"
  37.            COPY PPageInstPgm:libs/mathtrans.library LIBS:
  38.         ENDIF
  39.         IF NOT EXISTS LIBS:diskfont.library
  40.            ECHO "*N     Copying diskfont.library"
  41.            COPY PPageInstPgm:libs/diskfont.library LIBS:
  42.         ENDIF
  43.  
  44.         IF NOT EXISTS "PPageInstDest:PPage/Data"
  45.                 MAKEDIR "PPageInstDest:PPage/Data"
  46.         ENDIF
  47.  
  48.         COPY PPageInstUtil:Data "PPageInstDest:PPage/Data" ALL QUIET
  49.  
  50.         COPY PPageInstUtil:PPage_Any_Font "PPageInstDest:PPage"
  51.  
  52. ENDIF
  53.  
  54. ECHO "*N"
  55. INSTUTIL ask -dy "Copy Tutorial Files to {dest}PPage [Y/N]? Y"
  56. IF NOT warn
  57.  
  58.    IF NOT EXISTS "PPageInstDest:PPage/NewsLetter"
  59.       MAKEDIR "PPageInstDest:PPage/NewsLetter"
  60.    ENDIF
  61.    COPY PPageInstUtil:NewsLetter "PPageInstDest:PPage/NewsLetter" ALL QUIET
  62.    COPY PPageInstUtil:NewsLetter.info "PPageInstDest:PPage"
  63.    INSTUTIL reseticon "PPageInstDest:PPage/NewsLetter"
  64.  
  65. ENDIF   ; copy Tutorial files
  66.  
  67. ECHO "*N"
  68. INSTUTIL ask -dy "Copy PPage Bitmap fonts to FONTS: directory [Y/N]? Y"
  69. IF NOT warn
  70.  
  71.    FAILAT 21
  72.    ECHO "*N     Copying Bitmap fonts to FONTS:"
  73.    COPY PPageInstUtil:fonts FONTS: ALL QUIET
  74.    IF error
  75.       ECHO "*N      Not enough room on the FONTS: directory*N"
  76.    ENDIF
  77.    FAILAT 10
  78.  
  79. ELSE
  80.  
  81.    INSTUTIL ask -dy "Copy PPage Bitmap fonts to {dest}PPage/Fonts [Y/N]? Y"
  82.    IF NOT warn
  83.  
  84.       ECHO "*N     Copying Bitmap fonts to {dest}PPage/Fonts:"
  85.       IF NOT EXISTS "PPageInstDest:PPage/Fonts"
  86.          MAKEDIR "PPageInstDest:PPage/Fonts"
  87.       ENDIF
  88.       COPY PPageInstUtil:fonts "PPageInstDest:PPage/Fonts" ALL QUIET
  89.  
  90.       ;
  91.       ; Make a couple of IconX files to switch between PPage and normal fonts.
  92.       ;
  93.       CD RAM:PPageInstall
  94.       ECHO >SelPP.1 "Echo *"Selecting Professional Page fonts: *" NOLINE"
  95.       ECHO >SelPP.2 "Assign FONTS: *"{dest}PPage/Fonts*""
  96.       ECHO >Sel.Done "Echo *"Done.*""
  97.       JOIN SelPP.1 SelPP.2 Sel.Done AS "PPageInstDest:PPage/PPageFonts"
  98.       COPY PPageInstUtil:HD/Icons/PPageFonts.info "PPageInstDest:PPage/PPageFonts.info"
  99.  
  100.       ECHO >SelAm.1 "Echo *"Selecting Amiga fonts: *" NOLINE"
  101.       ECHO >SelAm.2a "Assign FONTS: " NOLINE
  102.  
  103.       CD FONTS:
  104.       CD >RAM:PPageInstall/SelAm.2b
  105.       CD RAM:PPageInstall
  106.  
  107.       JOIN SelAm.1 SelAm.2a SelAm.2b Sel.Done AS "PPageInstDest:PPage/AmigaFonts"
  108.       COPY PPageInstUtil:HD/Icons/AmigaFonts.info "PPageInstDest:PPage/AmigaFonts.info"
  109.  
  110.    ENDIF
  111.  
  112. ENDIF   ; copy FONTS
  113.  
  114. ECHO "*N"
  115. INSTUTIL ask -dy "Copy Article Editor to {dest}PPage [Y/N]? Y"
  116. IF NOT warn
  117.         ; Copy the editor
  118.         IF NOT EXISTS "PPageInstDest:PPage/CGFonts"
  119.            MAKEDIR "PPageInstDest:PPage/CGFonts"
  120.            COPY PPageInstUtil:HD.info PPageInstDest:PPage/CGFonts.info
  121.         ENDIF
  122.         EXECUTE RAM:PPageInstall/DiskMount "Compugraphic Fonts Disk" CGFonts: PPageInstCG:
  123.         ECHO "*N"
  124.         INSTUTIL -ePPageVersion1 version PPageInstDest:CGFonts/AE
  125.         INSTUTIL -ePPageVersion2 version PPageInstCG:AE
  126.         IF NOT val $PPageVersion1 gt $PPageVersion2
  127.             ECHO "Copying Article Editor"
  128.             COPY PPageInstCG:AE "PPageInstDest:PPage/CGFonts/AE" QUIET
  129.             COPY PPageInstCG:AE.info "PPageInstDest:PPage/CGFonts/AE.info" QUIET
  130.         ENDIF
  131.         INSTUTIL -ePPageResult1 version PPageInstDest:CGFonts/TransSpell
  132.         INSTUTIL -ePPageResult2 version PPageInstCG:TransSpell
  133.         IF NOT val $PPageVersion1 gt $PPageVersion2
  134.             ECHO "Copying Spell Checker"
  135.             COPY PPageInstCG:TransSpell "PPageInstDest:PPage/CGFonts/TransSpell" QUIET
  136.             COPY PPageInstCG:TransSpell.info "PPageInstDest:PPage/CGFonts/TransSpell.info" QUIET
  137.         ENDIF
  138.         INSTUTIL -ePPageResult1 version PPageInstDest:CGFonts/pfsf6b90k
  139.         INSTUTIL -ePPageResult2 version PPageInstCG:pfsf6b90k
  140.         IF NOT val $PPageVersion1 gt $PPageVersion2
  141.             ECHO "Copying Dictionary"
  142.             COPY PPageInstCG:pfsf6b90k "PPageInstDest:PPage/CGFonts" QUIET
  143.         ENDIF
  144.  
  145. ENDIF
  146.  
  147.  
  148. ECHO "*N"
  149. INSTUTIL ask -dy "Copy Compugraphic Fonts to {dest}PPage/CGFonts [Y/N]? Y"
  150. IF NOT warn
  151.    ; Copy the CGFonts stuff
  152.    EXECUTE RAM:PPageInstall/DiskMount "Compugraphic Fonts Disk" CGFonts: PPageInstCG:
  153.    ECHO "*N     Copying Compugraphic Fonts ..."
  154.    IF NOT EXISTS "PPageInstDest:PPage/CGFonts"
  155.       MAKEDIR "PPageInstDest:PPage/CGFonts"
  156.       COPY PPageInstUtil:HD.info PPageInstDest:PPage/CGFonts.info
  157.    ENDIF
  158.    IF NOT EXISTS "PPageInstDest:PPage/CGFonts/CGCache"
  159.       MAKEDIR "PPageInstDest:PPage/CGFonts/CGCache"
  160.    ENDIF
  161.    COPY PPageInstCG:Times#? "PPageInstDest:PPage/CGFonts" QUIET
  162.    COPY PPageInstCG:Triumvirate#? "PPageInstDest:PPage/CGFonts" QUIET
  163.  
  164.    INSTUTIL -ePPageResult1 version PPageInstDest:CGFonts/CGT
  165.    INSTUTIL -ePPageResult2 version PPageInstCG:CGT
  166.    IF NOT val $PPageResult1 gt $PPageResult2
  167.       COPY PPageInstCG:CGT "PPageInstDest:PPage/CGFonts/CGT" QUIET
  168.    ENDIF
  169.  
  170.    COPY PPageInstCG:psfont.alias "PPageInstDest:PPage/CGFonts/psfont.alias" QUIET
  171.    COPY PPageInstCG:CacheEdit "PPageInstDest:PPage/CacheEdit" QUIET
  172.    COPY PPageInstCG:CacheEdit.info "PPageInstDest:PPage/CacheEdit.info" QUIET
  173.    INSTUTIL reseticon "PPageInstDest:PPage/CacheEdit"
  174.  
  175. ENDIF   ; copy CG Fonts
  176.  
  177. ENDSKIP
  178.  
  179. ;
  180. ; The Assign commands for startup-sequence
  181. ;
  182. CD RAM:PPageInstall
  183. ECHO >AsnPPage     "ASSIGN PPage:     *"{dest}PPage*""
  184. ECHO >AsnUtil      "ASSIGN PPageUtil: *"{dest}PPage*""
  185.  
  186. IF EXISTS "PPageInstDest:PPage/CGFonts"
  187.    ECHO >AsnCFonts "ASSIGN CGFonts:   *"{dest}PPage/CGFonts*""
  188. ELSE
  189.    COPY NIL: to AsnCFonts
  190. ENDIF
  191.  
  192. IF EXISTS "PPageInstDest:PPage/CGFonts/CGCache"
  193.    ECHO >AsnCCache "ASSIGN CGCache:   *"{dest}PPage/CGFonts/CGCache*""
  194. ELSE
  195.    COPY NIL: to AsnCCache
  196. ENDIF
  197.  
  198. ECHO >AsnPMS       "ASSIGN PMS:       *"{dest}PPage*""
  199.  
  200. VERSION >nil: graphics.library 36
  201.  
  202. IF NOT WARN
  203.    IF NOT EXISTS SYS:WBStartup
  204.       MAKEDIR SYS:WBStartup
  205.    ENDIF
  206.    JOIN AsnPPage AsnUtil AsnCFonts AsnCCache AsnPMS as SYS:WBStartup/PPageStartup
  207.    COPY PPageInstUtil:HD/icons/PPageStartup.info SYS:WBStartup
  208.    INSTUTIL reseticon SYS:WBStartup/PPageStartup
  209. ELSE
  210.    JOIN AsnPPage AsnUtil AsnCFonts AsnCCache AsnPMS as S:PPageStartup
  211. ENDIF
  212.  
  213.  
  214.